perm filename PPSRT.F4[MSS,LCS] blob sn#143869 filedate 1975-02-04 generic text, type T, neo UTF8
00100	C  SUBRS.  RHORZ, SLUR, PLTSRT, LINES, RDRAW, CLEFS
00200	
05800		FUNCTION RHORZ(R)
05900		RHORZ=R*5.96-596.
06000		END
06200	
06300		SUBROUTINE SLUR
06382		IMPLICIT INTEGER(A-Q,T-Z)
06464		DIMENSION SLURX(72),SLURY(72)
06546		REAL CENTR,PWDS
06628		COMMON /PLTR/PLT,RHT,RDIS
06710		COMMON R2,JA,CENTR,J2,R3,R4,R5,R6,R7,R8,R9,R10,RA,RB,
06792		1 K,KQ,TWICE,RST7,RX,RXX,RTILT,RC,RZ,RW,J3,J4,
06874		1 J5,J6,J7,J8,J9,J10,J11,JQ(8),R
06956		COMMON/PTR/PWDS(250),ITEM,L,I,IX /STF/RSTFAC(-3/4),RSTJ3
07120		DATA RZZ/2.8/
07202	C  DEFAULT VALUE OF SLUR CURVE FACTOR IS 2.8
07284	
07366		IF(JA.NE.12)GO TO 2
07448		RA=5.96*RSTJ3*R5
07530		L=3
07612		J8=J8*RDIS
07694		IF(J7.LE.J6)J7=J7+360
07776		KQ=8
07858		IF(PLT)KQ=1
07940	10	DO 3 K=J6,J7,KQ
08022		R=K
08104		CALL LINES(R2+RA*SIND(R),CENTR+RA*COSD(R),L)
08186	3	L=2
08268		J8=J8-1
08350		IF(J8)RETURN
08432		RA=RA+1/RDIS
08514		GO TO 10
08596	CJA=12  DRAWS CIRCLES. P5=RADIUS, P6=DEGR.1, P7=DEGR.2,P8=THICK(EXPANDS
08678		RETURN
08760	
08842	2	J10=1
08850		J4=-1
08924		KQ=6
09006		TWICE=-1
09088	C  -1 FOR DISPLAY, USES ONLY 1/3 OF SEGMENTS
09170		IF(PLT.GE.0)GO TO 21
09252		TWICE=0
09334		KQ=1
09416		RWID=.2
09498		IF(RHT.LT.2)GO TO 21
09580		TWICE=1
09662		RWID=.14
09744	C  IF SIZE IS GT.2 3 SLURS ARE DRAWN
09826	21	RST7=RSTJ3*7.
09900		RQQ=R5-R4
09908		IF(R6.GT.1000)CALL RNOTE(R6)
09990		GO TO (5,6,7),J8+4
10072		GO TO 4
10154	5	R=32
10236	C AFTER DOTTED NOTE
10318		GO TO 8
10400	6	R=22
10482	C BETWEEN NOTES
10564	8	RX=-1.3
10646		GO TO 9
10728	7	R=7
10810		RX=RSTJ3
10892	9	CALL RJBX(R)
10974		R6=R6+RX
11056	4	RXX=RHORZ(R6)-R2
11138		RTILT=RQQ*RST7
11220	80	RX=SQRT(RXX**2+RTILT**2)
11302	1	R=CENTR
11384		IF(J8.GT.0)GO TO 180
11466	C  FOR BRACKETS
11548		RB=RX/71.
11630		DO 81 K=0,71
11712	81	SLURX(K+1)=RB*(K)+R2
11794		RA=R7*RST7
11876	41	IF(R9.EQ.0)R9=RZZ
11958		R=R+RA
12040		L=0
12122		DO 40 K=36,1,-1
12204		L=L+1
12286		RW=R-RA*(K/36.)**R9
12368		SLURY(L)=RW
12450	40	SLURY(73-L)=RW
12532		L=72
12614	
12696	89	IF(RTILT.EQ.0)GO TO 87
12778	CC	R=RTILT*RF
12860		RW=ATAN2(RTILT,RXX)
12942		RA=SIN(RW)
13024		RB=COS(RW)
13106		RZ=SLURX(1)
13188		RW=SLURY(1)
13270		DO 84 K=1,L
13352		SLURX(K)=SLURX(K)-RZ
13434	84	SLURY(K)=SLURY(K)-RW
13516		DO 83 K=1,L
13598		R=SLURX(K)
13680		SLURX(K)=RB*R-RA*SLURY(K)+RZ
13762	83	SLURY(K)=RB*SLURY(K)+RA*R+RW
13844	
13926	87	IF(J4)CALL LINES(SLURX(J10),SLURY(J10),3)
13967		J5=KQ
13987		J6=J10
13997		J7=L
14000		IF(J4.NE.0)GO TO 22
14010		CALL EXCH(J6,J7)
14020		J5=-1
14080	22	DO 88 K=J6,J7,J5
14090	88	CALL LINES(SLURX(K),SLURY(K),2)
14336		IF(TWICE)RETURN
14450		TWICE=TWICE-1
14470		IF(J8.GT.0)GO TO 182
14490		J4=J4+1
14510		R7=R7+RWID
14530	C  RWID=WIDTH OF SLUR -- SEE DATA
14550		GO TO 1
14570	180	RW=R+R7*RST7
14590		TWICE=-1
14610		KQ=1
14630		RX=RX+R2
14650	CC	RA=(R5-R4)*RST7
14670		IF(J9.EQ.0)GO TO 181
14690		TWICE=2
14710		RZ=RTILT/(RX-R2)
14730		RXX=RX
14750		RWID=(R2+RXX)/2.
14770	182	IF(TWICE.EQ.1)GO TO 183
14790	C  DOES LEFT SIDE FIRST.
14810		IF(TWICE.EQ.0)GO TO 184
14830	C LAST IS NUMBER.
14850		J8=2
14860		RC=RSTJ3*13.
14870		RX=RWID-RC
14890		RWW=RTILT
14910	185	RTILT=RZ*(RX-R2)
14930	
14950	C  PUT IN FUNC. HERE FOR THIS SLOPE AND FOR PART. BEAMS.
14970	
14990		GO TO 181
15010	183	J8=3
15030		RX=RXX
15050		RTILT=RWW
15070		RXX=R2
15090		R2=RWID+RC
15110		RXX=RZ*(R2-RXX)
15130		R=R+RXX
15150		RW=RW+RXX
15170		GO TO 185
15190	
15210	181	SLURX(1)=R2
15230		SLURY(1)=R
15250		SLURX(2)=R2
15270		SLURY(2)=RW
15290		SLURX(3)=RX
15310		SLURY(3)=RW+RTILT
15330		SLURX(4)=RX
15350		SLURY(4)=R+RTILT
15370		L=4
15390		IF(J8.EQ.2)L=3
15410		IF(J8.EQ.3)J10=2
15430	CC	TWICE=-1
15450		GO TO 87
15470	184	J2=RWID
15490	C  PUT IN VERT. POS. WHEN SLOPE!
15510		R4=RQQ/2.+R4+R7-1.
15530		R5=1.
15550		R7=0
15570		CALL MAKNUM(R9)
15590		END
16300	C  8, POS1, STF, NT1, NT2, POS2, DIP(ABS. UNITS), P8
16400	C        FOR P8: 0= SLUR, 1=BRACKETS, 2=LFT ONLY, 3=RT ONLY
16500	
16600	
17400		SUBROUTINE PLTSRT
17500	C  SORTS DATA TO SHORTEN INVISIBLE VECTORS WHEN PLOTTING. 
17600		IMPLICIT INTEGER(S-Z)
17700		COMMON /XRN/RN(4000) /PTR/PWDS(250),ITEM,L,I,IX
17800		DIMENSION  P(250)
17900		DO 4 K=1,ITEM
18000		L=PWDS(K)
18050		LL=PWDS(K-1)
18060		LM=PWDS(K+1)
18100		A=RN(L+2)
18200	 	P(K)=A+1000*RN(L+3)
18210		IF(RN(L+1).NE.16)GO TO 40
18220		Y=PWDS(K-1)
18230		V=PWDS(K+1)
18240		IF(RN(Y+1).EQ.16.OR.RN(V+1).EQ.16)GO TO 41
18250		GO TO 4
18300	40	IF(A.GE.0)GO TO 4
18305	41	P(K)=-10000
18310	4	CONTINUE
18400	C  PLOTS ALL NEG. POSITIONS FIRST.
18425		IX=I
18450		IF(I.LT.1500)I=1500
18500		Y=I
18537		I=I+IX-1
18556		IX=Y
18565	C  IX IS M IN MAIN PROG.
18575	C  LEAVES 1500 WDS IN RN FOR STORING "NOIR" DATA.
18600	2	A=P(1)
18700		L=1
18800		DO 1 K=1,ITEM
18900		IF(A.LE.P(K))GO TO 1
19000		A=P(K)
19100		L=K
19200	1	CONTINUE
19300		IF(A.EQ.10000.)RETURN
19400	C  ALL ITEMS HAVE NOW BEEN SHUFFLED
19500		V=PWDS(L)
19600		P(L)=10000
19700		L=RN(V)+2+Y
19750		V=V-Y
19800	CC	CALL LOOP(0,L,1,Y,V,RN)
19810		DO 3 K=Y,L
19820	3	RN(K)=RN(K+V)
19830	C  REPLACED SUBROUTINE LOOP
19900		Y=L+1
20000		GO TO 2
20100		END
20200	
20300	
20400		SUBROUTINE LINES(A,B,L)
20500		COMMON /FL/IC,NZ,NX,RZ,XGP
20600		COMMON/DL/IIII,SAVER,AA /PLTR/IPLT,RHT,DIS
20700		COMMON R2,JA,CENTR,J2,RJQ(20),JQ(20) 
20800		COMMON/DPY/GO,TOP,BOT
20900		DATA BB/260.0/,CC/3.5/,DD/1.43/,MX/512/
21000	C  SET XGP TO 1245.0 FOR MARGIN IN XEROX COPIES
21100	CX22	GO TO 23
21200	C  CHANGE ABOVE TO 'J6CL' IN DDT TO USE NEXT ITEMS.
21300	CX24	AA=CC-DD*ABS(A)/BB
21400	C  USE THIS IN DDT TO DISTORT ITEMS.  CC MUST BE > DD
21500	CX	B=B*AA
21600	23	IF(IPLT)GO TO 2
21900		IF(JA.EQ.44)RETURN
22000	CC	K=B
22100	CC	IF(K.GT.ITOP)ITOP=B
22200	CC	IF(K.LT.IBOT)IBOT=B
22220		IF(B.GT.TOP)TOP=B
22240		IF(B.LT.BOT)BOT=B
22300	6	RETURN
22400	CC2	IF(IPLT.EQ.-2)RETURN
22500	C RXGP SETS UP-DOWN POS. ON XEROX PAPER (FRACTIONAL POSITIONS POSSIBLE.)
22600	CC	IF(IXRX.EQ.0)GO TO 9
22700	CC	M=ROFF(RXGP-B*RHT)
22800	CC	N=ROFF(XGP+A*DIS)
22900	CC	GO TO 8
23000	2	M=ROFF(A*DIS)
23100		N=ROFF(B*RHT)
23200	8	CALL PLOT(M,N,L)
23300		END
23400	
23500		SUBROUTINE RDRAW(I,S,XY,X,R2,CENTR,RMINI)
23600	C   TO X,Y INTO ONE WORD
23700		DIMENSION XY(1)
23800		DO 2 K=I,IFIX(S)
23900		L=2
24000		Y=XY(K)
24100		IF(Y.LT.1000.)GO TO 3
24200		L=3
24300		Y=Y-1000.
24400	C   >1000 = INVIS. LINE
24500	3	M=Y
24600		Y=(Y-M)*1000.
24700		IF(Y.GT.100.)Y=100-Y
24800	C   Y NUMBERS .GT.100 ARE NEG.
24900		B=Y*X+CENTR
25000		IF(M.GT.60)M=100-M
25100		A=M*RMINI+R2
25200	2	CALL LINES(A,B,L)
25300		END
25400	
25500		FUNCTION IABS(N)
25600		IABS=N
25700		IF(N)IABS=-N
25800		END
25900	
26000		BLOCK DATA
26100		IMPLICIT INTEGER(A-Q,S-Z)
26300		COMMON /NU/NUMQ(44),RNUMS(327),RACCI(22),NACCI(3)
26400		DATA
26800	     1 NUMQ/1,11,15,23,33,38,47,57,62,79, 89,95,108,117,125,132,138
26900	     1,150,157,164,171,177,181,187,1,192,200,212,221,234,239,246
27000	     1,250,256,261,266,  271,282,285,293,298,307,316,321/
27100	      DATA (RNUMS(K),K=1,131)/10.0,1003.107, 6.102, 6.01, 3.015,
27200	     1 104.015, 107.01,107.102, 104.107, 3.107,
27300	     1 14.0, 1105.011, 101.015, 101.107, 22.0,
27398	     1 1106.011, 102.015, 3.015, 7.011, 7.005, 107.107, 7.107, 32.0,
27496	     1 1107.015, 7.015, 101.007, 3.007, 7.003, 7.102, 3.107, 103.107,
27594	     1 107.103, 37.0, 1007.102, 107.102, 2.015, 2.107, 46.0, 1107.107,
27692	     1 4.103, 7.0, 7.004, 2.006, 107.004, 107.015, 7.015, 56.0,
27790	     1 1004.015, 107.0, 107.103, 103.107, 4.107, 7.103, 7.0, 3.003,
27888	     1 104.003, 61.0, 1107.011, 107.015, 7.015, 107.107, 78.0, 1003.004,
27986	     1 7.0, 7.103, 4.107, 104.107, 107.103, 107.0, 103.004, 3.004,
28084	     1 6.008, 6.012, 2.015, 102.015, 106.012, 106.008, 103.004,
28182	     1 88.0, 1104.107, 7.008, 7.011, 4.015, 104.015, 107.011, 107.008,
28280	     1 103.005, 4.005, 94.0, 1106.107, 0.015,6.107,1004.101,104.101,
28378	     1 107.0, 1106.107, 106.015, 3.015, 6.012, 6.007, 3.004, 1106.004,
28476	     1 2.004, 6.001, 6.104, 3.107, 106.107, 116.0, 1006.104, 3.107,
28574	     1 103.107, 106.104, 106.011, 103.015, 3.015, 6.011, 124.0,
28672	     1 1106.107, 106.015, 3.015, 6.011, 6.103, 3.107, 106.107,
28770	     1 131.0, 1006.107, 106.107, 106.015, 6.015, 1003.005, 106.005/
28868	C   THE NEXT IS FOR 'F' TO 'P'
28966	C   1 NUM NOT NEEDED IN 'G'  ALSO IN RNOTE (1/2 NOTE).
29064	      DATA (RNUMS(K),K=132,199)/
29162	     1 137.0, 1106.107, 106.015, 6.015, 1003.005, 106.005, 149.0, 
29260	     1 1001.102, 6.102, 6.104, 6.104, 3.107, 103.107, 106.104, 
29358	     1 106.011, 103.015, 3.015, 6.011, 156.0, 1106.107, 106.015,
29456	     1 1006.015, 6.107, 1006.005, 106.005, 163.0, 1106.107, 0.107,
29554	     1 1103.107, 103.015, 1106.015, 0.015,
29652	     1 170.0, 1110.102, 110.105, 108.107, 103.107, 101.105, 101.015, 
29750	     1 176.0, 1106.107, 106.015, 1006.015, 106.005, 6.107, 180.0,
29848	     1 1006.107, 106.107, 106.015, 186.0, 1106.107, 106.015, 1.004,
29946	     1 8.015, 8.107, 191.0, 1106.107, 106.015, 6.107, 6.015, 199.0
30044	     1, 1106.107, 106.015, 3.015, 6.012, 6.007, 3.004, 106.004/ 
30142	C   'Q' TO ')'
30240	      DATA(RNUMS(K),K=200,327)/
30338	     1 211.0, 1003.107, 6.102, 6.01, 3.015, 103.015, 106.01, 106.102,
30436	     1 103.107, 3.107, 1001.001, 7.108, 220.0, 1106.107, 106.015,
30534	     1 3.015, 6.012, 6.007, 3.004, 106.004, 6.107, 233.0, 1106.104,
30632	     1 103.107, 3.107, 6.104, 6.001, 3.004, 103.004, 106.007, 106.011,
30730	     1 103.015, 3.015, 6.01, 238.0, 1106.015, 7.015, 1000.015, 0.107,
30828	     1 245.0, 1106.015, 106.104, 103.107, 3.107, 6.104, 6.015, 249.0,
30926	     1 1106.015, 0.107, 6.015, 255.0, 1106.015, 103.107, 1.005, 5.107,
31024	     1 8.015, 260.0, 1106.015, 6.107, 1106.107, 6.015, 265.0, 1106.015,
31122	     1 0.003, 1106.107, 6.015, 270.0, 1106.015, 6.015, 106.107, 6.107,
31220	     1 281.0, 1105.102, 105.105,103.105,104.102,104.105,105.102,103.102,
31318	     1103.108, 106.112, 1106.112, 284., 1110.004, 2.004, 292., 1105.102,
31416	     1 105.105,104.102,104.105,103.102,103.105,105.102,297.0,1110.008,
31514	     1 2.008, 1110.001, 2.001, 306.0, 1101.015, 103.013, 105.010,
31612	     1 106.006,106.002,105.102,103.105,101.107,315.0,1107.015,105.013,
31710	     1103.01 ,102.006,102.002,103.102,105.105,107.107,320.0,1110.004,
31808	     1 2.004, 1104.01, 104.102,  327.0,1110.004, 2.004, 1101.009,
31906	     1 107.101, 1101.101, 107.009/
32004	C  3RD ITEM IN 19400 NOT NEEDED 12/73
32102	
32200	C  1-10=NUMS 0-9, 11-36=ALPHA, 37-42=SIGNS
32298		DATA RACCI/6.0,1115.003, 110.007, 106.001,
32396	     1 115.109, 115.021, 15.0, 1104.104, 118.108,
32494	     1 1108.113, 108.016,  1104.008, 118.004,
32592	     1 1114.014, 114.115, 22.0,1106.117, 106.007, 114.004
32690	     1, 1114.018, 114.107, 106.104/
32788	     1 ,NACCI/1,7,16/
32886		END
38810	
45100		SUBROUTINE DRWNT(RMINI)
45200		COMMON /STF/RSTFAC(8),RSTJ3
45300		COMMON R2,JA,CENTR,J2,RJQ(20),JQ(20)
45400		EQUIVALENCE (J5,JQ(3)),(R4,RJQ(2)),(R6,RJQ(4)),
45500		1 (J7,JQ(5)),(R7,RJQ(5)),(R5,RJQ(3)),(RJZ,RJQ(20))
45600		1 ,(J9,JQ(7)),(R9,RJQ(7)),(J8,JQ(6))
45700		RJX=CENTR
45800		J8=0
45900	C  J8=0 SO IT WILL FILL. (P8 IN 'CLEFS')
46100		RA=R6
46200		R6=.5*RMINI/RSTJ3
46300		R7=R6
46400		R4=RJZ-3
46600	C  ADJUSTS POSITION FOR MINI ACCIDENTALS (..??!!)
46700		J9=0
46800		CALL CLEFS
46900		J9=R9
47000	C  ↑↑↑↑↑↑ NEEDED??
47100	C  FIX THIS???? ↑↑↑↑↑
47200	C  FOR WHITE NOTES AND ACCIS ON PLOTTER.
47300		CENTR=RJX
47400		R6=RA
47500		R7=J7
47600		J5=R5
47700		END
47800	
47900		SUBROUTINE CLEFS
48000		DIMENSION JCLEF(11),MCLEF(1000),RCMIN(4),KCLEF(11),NCLEF(500)
48050		1,CM(4)
48100		COMMON /STF/RSTFAC(8),RSTJ3 /PLTR/IPLT,RHT,DIS
48200		COMMON R2,JA,CENTR,J2,RJQ(20),JQ(20) /XRN/RN(4000)
48300	      DATA RCMIN/3.3,10.5,7.0,10.5/,CM/.1,1.5,1.1,1.5/
48400		EQUIVALENCE (R4,RJQ(2)),(J5,JQ(3)),(J9,JQ(7)),(KK,
48500		1 KCLEF(11)),(R6,RJQ(4)),(R5,RJQ(3)),(J8,JQ(6)),(R7,RJQ(5))
48600		1,(R9,RJQ(7)),(NJR,RJQ(8)),(K,JCLEF(11))
48650		1,(NCLEF,MCLEF(501))
48700	CC	1,(RN(501),MCLEF),(RN(1001),NCLEF)
48800		J5=MOD(J5,100)
48900		CALL NOZERO(R6)
49000		IF(R7.EQ.0)R7=R6
49100	C  IF P7 = 0, IT WILL EQUAL P6.
49200		IF(JA.GT.10)GO TO 9
49300		NAME='CLEF0'
49400		IF(J5.LT.20)GO TO 4
49500		R6=R6*.3
49600	C  SIZE FACTORS FOR SPECIAL WORDS, ETC. (PPP, MF, CRESC. ETC.)
49700		R7=R7*.3
49800		GO TO 4
49900	9	IF(NAME.EQ.NJR)GO TO 4
50000		IF(NAME.NE.0.AND.NJR.EQ.0)GO TO 4
50100		IF(NJR.EQ.0)GO TO 8	
50200	C  TO PICK UP BASIC DRAW NAME FROM P10 
50300		NAME=NJR
50400		GO TO 4
50500	8	TYPE 5
50600	5	FORMAT(' SET P10=1'/)
50700	C  LEADS TO PROPER FILE CALL
50800	4	NM=NAME+2*(J5/10)
50900	C  DRAW0 HAS ITEMS 0→9;  DRAW1, 10→19; ETC. TO DRAW9, 90→99
51000		JEZ=MOD(J5,10)+1
51100	2	IF(NM.EQ.JNM.OR.NM.EQ.KNM)GO TO 30
51200	C  SET P10≠0 TO CHANGE BASIC 'DRAW' NAME.
51300	C  JUMP IF ALREADY IN CORE
51400		IF(LOOKF(NM))GO TO 1111
51500		TYPE 1112,NM
51600		RETURN
51700	1112	FORMAT(1XA5,' -- NOT FOUND')
51800	1111	CALL GETFI2(NM)
51900		IF(KX)GO TO 33
52000		KX=-1
52100		JNM=NM
52200		CALL FASTI2(JCLEF,11)
52300		CALL FASTI2(MCLEF,K)
52400	C  NEW DATA READER  6/74 -- 10/74 HOLDS 2 .DMD FILES IF THEY FIT.
52500		IF(K.LE.500)GO TO 30
52600		KX=0
52700		KNM=0
52800		GO TO 30
52900	33	CALL FASTI2(KCLEF,11)
53000		KX=0
53100		IF(KK.GT.500)GO TO 1111
53200	C  JUMP BACK IF IT WON'T FIT.
53300		CALL FASTI2(NCLEF,KK)
53400		KNM=NM
53500	C   CHECK THE ABOVE  -- FOR P5 HEIGHT CHANGE *********************
53600	C  R6 IS SIZE FACTOR
53700	30	IF(J5.GT.3.OR.JA.NE.3)GO TO 811
53800	C  0=TREB, 1=BASS, 2=ALTO, 3=TENOR(ALTO SHIFTED UP)
53900	C  ↑↑↑↑↑↑↑↑  FIXUP SOMEDAY IN .DMD FILES
54000		IF(R5.LT.100)GO TO 812
54100		RSTJ3=.8*RSTJ3
54200	C  TO SET HGT. OF MINI CLEFS
54210		R4=R4+CM(JEZ)
54255	C  SHIFTS MINIS UP BECAUSE OF WRONG ORIG. POS.??
54300	812	IF(JEZ.NE.4)GO TO 811
54400		R4=R4+2
54500		JEZ=3
54600	C   ABOVE IS NOW AT TOP
54700	
54800	811	A=R4
54900		R4=A+2.9
55000		CALL CENTX
55100		R4=A
55200	
55300		L=JCLEF(JEZ)
55400		IF(NM.EQ.KNM)L=KCLEF(JEZ)+500
55500		IF(J9.EQ.0)GO TO 31
55600		CALL ROTATE(MCLEF,L)
55700	C  R9=P9=DEGREES OF ROTATION (0-360)
55800		IF(KK.GT.250)KX=0
55900	C CHECK TO SEE IF DATA WAS WIPED OUT.
56000	31	IF(J8.EQ.-2.OR.(J8.NE.-1.AND.IPLT.GE.0))GO TO 32
56100	C			J8=-2 OMITS FILLER DURING PLOT
56200		DO 3 K=L+1,MCLEF(L)+L
56300		IF(MCLEF(K).LT.200000000)GO TO 3
56400		JEZ=MCLEF(L)-1
56500		IF(K.GT.L+1)JEZ=JEZ-K+L+1
56600		CALL FILLMS(JEZ,MCLEF(K),R2,CENTR,R6,R7)
56700		GO TO 32
56800	3	CONTINUE
56900	C  FILLS ONLY WHEN PLOTING OR R8=-1
57000	32	CALL JDRAW(MCLEF(L),R2,CENTR,RSTJ3,R6,R7)
57100	C   3,POS.,STF,NT# OR CLEF,ITEM#,SIZEX,SIZEY, J8=-1 TO FILL ON CRT
57200	
57300		END